home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / earcd / devel / vbcc-wos-src / machines / amigawos / libsrc / stdio / remove.c < prev    next >
C/C++ Source or Header  |  1999-01-01  |  694b  |  32 lines
  1. /*
  2. ** vbcc-PowerOpen/WarpOS version of remove.c
  3. **
  4. ** v1.0 29.10.98 phx
  5. **      switched to Volker's (simple) version, which is also
  6. **      used in M68k and PowerUp
  7. ** v0.2 01.08.98 phx
  8. **      more ANSI, correct return value, errno
  9. ** v0.1 06.03.98 phx
  10. */
  11.  
  12. #include <stdio.h>
  13. #include <dos/dos.h>
  14. #include <powerpc/powerpc.h>
  15. #include <clib/powerpc_protos.h>
  16.  
  17. extern ULONG DOSBase;
  18.  
  19. int remove(const char *name)
  20. {
  21.   struct PPCArgs pa;
  22.  
  23.   pa.PP_Code = (APTR)DOSBase;
  24.   pa.PP_Offset = -72;  /* _LVODeleteFile */
  25.   pa.PP_Flags = pa.PP_StackSize = 0;
  26.   pa.PP_Stack = NULL;
  27.   pa.PP_Regs[PPREG_D1] = (ULONG)name;
  28.   pa.PP_Regs[PPREG_A6] = DOSBase;
  29.   Run68K(&pa);
  30.   return (!pa.PP_Regs[PPREG_D0]);
  31. }
  32.